inherited dm_produtorequisicao: Tdm_produtorequisicao
  OldCreateOrder = True
  Left = 333
  Top = 248
  Height = 456
  Width = 625
  inherited sqlConsulta: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'empresa'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  r.cod_requisicao,'
      '  r.lig_cod_empresa,'
      '  r.lig_cod_funcionario,'
      '  r.situacao,'
      '  case'
      '    when r.situacao = '#39'True'#39' then '#39'Aberta'#39' else '#39'Fechada'#39
      '  end as situacao_desc,'
      '  r.obs,'
      '  r.data_cad,'
      '  r.data_alteracao,'
      '  coalesce(sum(a.qtde_requerida),0) as total_requerido,'
      '  coalesce(sum(a.qtde_devolvida),0) as total_devolvido,'
      
        '  coalesce((sum(a.qtde_requerida) - sum(a.qtde_devolvida)),0) as' +
        ' total_pendente,'
      '  b.descricao as funcionario,'
      '  c.descricao as funcionario_depto,'
      '  d.descricao_multiempresa as empresa'
      'from PRODUTO_REQUISICAO r'
      
        'left join produto_requisicao_itens a on (a.lig_cod_requisicao = ' +
        'r.cod_requisicao)'
      
        'left join funcionario b on (b.cod_funcionario = r.lig_cod_funcio' +
        'nario)'
      
        'left join empresa_departamento c on (c.cod_departamento = b.lig_' +
        'cod_departamento)'
      'left join empresa d on (d.cod_empresa = r.lig_cod_empresa)'
      'where r.lig_cod_empresa = :empresa and'
      '           r.situacao = '#39'True'#39)
    Left = 296
  end
  inherited dspConsulta: TDataSetProvider
    Left = 296
  end
  inherited cdsConsulta: TClientDataSet
    Left = 296
    object cdsConsultaCOD_REQUISICAO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_REQUISICAO'
      Required = True
    end
    object cdsConsultaLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsConsultaLIG_COD_FUNCIONARIO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_FUNCIONARIO'
      Required = True
    end
    object cdsConsultaSITUACAO: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsConsultaOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsConsultaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaTOTAL_REQUERIDO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'TOTAL_REQUERIDO'
      Precision = 15
      Size = 0
    end
    object cdsConsultaTOTAL_DEVOLVIDO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'TOTAL_DEVOLVIDO'
      Precision = 15
      Size = 0
    end
    object cdsConsultaTOTAL_PENDENTE: TFMTBCDField
      Alignment = taCenter
      FieldName = 'TOTAL_PENDENTE'
      Precision = 15
      Size = 0
    end
    object cdsConsultaFUNCIONARIO: TStringField
      FieldName = 'FUNCIONARIO'
      Size = 100
    end
    object cdsConsultaFUNCIONARIO_DEPTO: TStringField
      FieldName = 'FUNCIONARIO_DEPTO'
      Size = 100
    end
    object cdsConsultaEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 50
    end
    object cdsConsultasqlConsultaItens: TDataSetField
      FieldName = 'sqlConsultaItens'
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_produto_requisicao,1)'
      'FROM RDB$DATABASE')
    Left = 539
    Top = 18
  end
  inherited dspRegistro: TDataSetProvider
    Left = 368
  end
  inherited cdsRegistro: TClientDataSet
    Left = 368
    object cdsRegistroCOD_REQUISICAO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_REQUISICAO'
      Required = True
    end
    object cdsRegistroLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsRegistroLIG_COD_FUNCIONARIO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_FUNCIONARIO'
      Required = True
    end
    object cdsRegistroDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRegistroOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_requisicao'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  r.cod_requisicao,'
      '  r.lig_cod_empresa,'
      '  r.lig_cod_funcionario,'
      '  r.data_cad,'
      '  r.data_alteracao,'
      '  r.obs'
      'from PRODUTO_REQUISICAO r'
      'where r.cod_requisicao = :cod_requisicao')
    Left = 368
  end
  object dsMestre_Detalhe: TDataSource
    DataSet = sqlConsulta
    Left = 218
    Top = 18
  end
  object sqlConsultaItens: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_REQUISICAO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  r.lig_cod_requisicao,'
      '  r.lig_cod_produto,'
      '  r.qtde_requerida,'
      '  r.qtde_devolvida,'
      '  (r.qtde_requerida - r.qtde_devolvida) as qtde_pendente,'
      '  r.data_vencimento,'
      '  r.data_registro,'
      '  a.descricao ||'#39'/'#39'|| a.apresentacao as produto'
      'from PRODUTO_REQUISICAO_ITENS r'
      'left join produto a on (a.cod_produto = r.lig_cod_produto)'
      'where r.lig_cod_requisicao = :cod_requisicao'
      'order by r.data_vencimento desc')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 130
    Top = 18
    object sqlConsultaItensLIG_COD_REQUISICAO: TIntegerField
      FieldName = 'LIG_COD_REQUISICAO'
      Required = True
    end
    object sqlConsultaItensLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlConsultaItensQTDE_REQUERIDA: TIntegerField
      FieldName = 'QTDE_REQUERIDA'
      Required = True
    end
    object sqlConsultaItensQTDE_DEVOLVIDA: TIntegerField
      FieldName = 'QTDE_DEVOLVIDA'
    end
    object sqlConsultaItensQTDE_PENDENTE: TFMTBCDField
      FieldName = 'QTDE_PENDENTE'
      Precision = 15
      Size = 0
    end
    object sqlConsultaItensDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
    object sqlConsultaItensDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
    end
    object sqlConsultaItensPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 201
    end
  end
  object cdsConsultaItens: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaItens
    Params = <>
    Left = 43
    Top = 18
    object cdsConsultaItensLIG_COD_REQUISICAO: TIntegerField
      FieldName = 'LIG_COD_REQUISICAO'
      Required = True
    end
    object cdsConsultaItensLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsConsultaItensQTDE_REQUERIDA: TIntegerField
      Alignment = taCenter
      FieldName = 'QTDE_REQUERIDA'
      Required = True
    end
    object cdsConsultaItensQTDE_DEVOLVIDA: TIntegerField
      Alignment = taCenter
      FieldName = 'QTDE_DEVOLVIDA'
    end
    object cdsConsultaItensQTDE_PENDENTE: TFMTBCDField
      Alignment = taCenter
      FieldName = 'QTDE_PENDENTE'
      Precision = 15
      Size = 0
    end
    object cdsConsultaItensDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
    object cdsConsultaItensDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
    end
    object cdsConsultaItensPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 201
    end
  end
  object sqlRequisicaoItens: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_requisicao'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'cod_produto'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  r.lig_cod_requisicao,'
      '  r.lig_cod_produto,'
      '  r.qtde_requerida,'
      '  r.qtde_devolvida,'
      '  r.data_vencimento,'
      '  r.data_registro'
      'from PRODUTO_REQUISICAO_ITENS r'
      'where r.lig_cod_requisicao = :cod_requisicao and'
      '      r.lig_cod_produto = :cod_produto')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 453
    Top = 18
  end
  object dspRequisicaoItens: TDataSetProvider
    DataSet = sqlRequisicaoItens
    Options = [poCascadeDeletes, poCascadeUpdates]
    Left = 453
    Top = 66
  end
  object cdsRequisicaoItens: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRequisicaoItens'
    Left = 453
    Top = 114
    object cdsRequisicaoItensLIG_COD_REQUISICAO: TIntegerField
      FieldName = 'LIG_COD_REQUISICAO'
      Required = True
    end
    object cdsRequisicaoItensLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsRequisicaoItensQTDE_REQUERIDA: TIntegerField
      FieldName = 'QTDE_REQUERIDA'
      Required = True
    end
    object cdsRequisicaoItensQTDE_DEVOLVIDA: TIntegerField
      FieldName = 'QTDE_DEVOLVIDA'
    end
    object cdsRequisicaoItensDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
    object cdsRequisicaoItensDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
    end
  end
  object spReqBaixarItem: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_REQUISICAO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'QTDE_DEVOLVIDA'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'PRODUTO_REQ_BAIXAR_ITEM'
    Left = 33
    Top = 82
  end
  object spReqEstornaItem: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_REQUISICAO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'QTDE_ESTORNO'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'PRODUTO_REQ_ESTORNAR_ITEM'
    Left = 131
    Top = 84
  end
  object cdsAuxRequisicao: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 57
    Top = 162
    Data = {
      C10000009619E0BD010000001800000007000000000003000000C1000F4C4947
      5F434F445F50524F4455544F04000100000000000750524F4455544F01004900
      000001000557494454480200020064000E515444455F52455155455249444104
      000100000000000E515444455F5554494C495A41444104000100000000000E51
      5444455F4445564F4C5649444104000100000000000D515444455F50454E4445
      4E544504000100000000000F444154415F56454E43494D454E544F0400060000
      0000000000}
    object cdsAuxRequisicaoLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
    end
    object cdsAuxRequisicaoPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 100
    end
    object cdsAuxRequisicaoQTDE_REQUERIDA: TIntegerField
      FieldName = 'QTDE_REQUERIDA'
    end
    object cdsAuxRequisicaoQTDE_DEVOLVIDA: TIntegerField
      FieldName = 'QTDE_DEVOLVIDA'
    end
    object cdsAuxRequisicaoQTDE_PENDENTE: TIntegerField
      FieldName = 'QTDE_PENDENTE'
    end
    object cdsAuxRequisicaoDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
  end
end
